home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
- Begin VB.Form frmTestVBAudioCDWriter
- Caption = "TestVBAudioCDWriter"
- ClientHeight = 6900
- ClientLeft = 60
- ClientTop = 630
- ClientWidth = 8850
- LinkTopic = "Form1"
- MaxButton = 0 'False
- ScaleHeight = 6900
- ScaleWidth = 8850
- StartUpPosition = 2 'CenterScreen
- Begin MSComctlLib.StatusBar stBarAudioWriter
- Align = 2 'Align Bottom
- Height = 285
- Left = 0
- TabIndex = 6
- Top = 6615
- Width = 8850
- _ExtentX = 15610
- _ExtentY = 503
- _Version = 393216
- BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
- NumPanels = 5
- BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Object.Width = 3246
- MinWidth = 3246
- Text = "CD-RW"
- TextSave = "CD-RW"
- Object.ToolTipText = "Disc Type"
- EndProperty
- BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Object.Width = 2011
- MinWidth = 2011
- Text = "Open"
- TextSave = "Open"
- Object.ToolTipText = "Disk Status"
- EndProperty
- BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Alignment = 2
- Object.Width = 3246
- MinWidth = 3246
- Text = "50.000Mb"
- TextSave = "50.000Mb"
- Object.ToolTipText = "Used Space"
- EndProperty
- BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Alignment = 2
- Object.Width = 3246
- MinWidth = 3246
- Text = "650.000Mb"
- TextSave = "650.000Mb"
- Object.ToolTipText = "Estimated Used Space"
- EndProperty
- BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Style = 5
- Alignment = 2
- Object.Width = 3246
- MinWidth = 3246
- TextSave = "11:39"
- Object.ToolTipText = "Current Time"
- EndProperty
- EndProperty
- End
- Begin MSComDlg.CommonDialog CommonDialog1
- Left = -390
- Top = 4560
- _ExtentX = 847
- _ExtentY = 847
- _Version = 393216
- End
- Begin MSComctlLib.ListView ListView1
- Height = 2685
- Left = 180
- TabIndex = 1
- ToolTipText = "Track To Burn List"
- Top = 2700
- Width = 8595
- _ExtentX = 15161
- _ExtentY = 4736
- View = 3
- LabelEdit = 1
- LabelWrap = -1 'True
- HideSelection = 0 'False
- OLEDragMode = 1
- OLEDropMode = 1
- FullRowSelect = -1 'True
- _Version = 393217
- ForeColor = -2147483640
- BackColor = -2147483639
- BorderStyle = 1
- Appearance = 1
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- OLEDragMode = 1
- OLEDropMode = 1
- NumItems = 2
- BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- Text = "Track"
- Object.Width = 1499
- EndProperty
- BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- SubItemIndex = 1
- Text = "File Name - ID Tag"
- Object.Width = 13494
- EndProperty
- End
- Begin VB.Frame frmTrackView
- Caption = "Track View"
- Height = 3405
- Left = 60
- TabIndex = 0
- Top = 2460
- Width = 8775
- Begin VB.CommandButton WriteNowBtn
- Caption = "Write"
- Height = 315
- Left = 7350
- TabIndex = 18
- Top = 3000
- Width = 1365
- End
- Begin VB.CommandButton DeleteAllBtn
- Caption = "Delete All"
- Height = 315
- Left = 1230
- TabIndex = 17
- Top = 3000
- Width = 1095
- End
- Begin VB.CommandButton UpBtn
- Caption = "Up"
- Height = 315
- Left = 3450
- TabIndex = 16
- Top = 3000
- Width = 855
- End
- Begin VB.CommandButton DnBtn
- Caption = "Dn"
- Height = 315
- Left = 4350
- TabIndex = 15
- Top = 3000
- Width = 855
- End
- Begin VB.CommandButton DeleteBtn
- Caption = "Delete"
- Height = 315
- Left = 120
- TabIndex = 14
- Top = 3000
- Width = 1065
- End
- End
- Begin VB.Frame frmEstWriteSpace
- Caption = "Estimated Write Space"
- Height = 675
- Left = 60
- TabIndex = 13
- Top = 5940
- Width = 8775
- Begin VB.Shape shpUsedSize
- FillColor = &H0000FFFF&
- FillStyle = 0 'Solid
- Height = 165
- Left = 90
- Top = 330
- Width = 315
- End
- Begin VB.Line shpLine650Mb
- BorderColor = &H00FF0000&
- X1 = 8130
- X2 = 8130
- Y1 = 300
- Y2 = 510
- End
- Begin VB.Shape shpEstWriteSize
- FillColor = &H00008000&
- FillStyle = 0 'Solid
- Height = 165
- Left = 90
- Top = 330
- Width = 495
- End
- Begin VB.Line shpLine702Mb
- BorderColor = &H000000FF&
- X1 = 8670
- X2 = 8670
- Y1 = 300
- Y2 = 510
- End
- Begin VB.Shape shpDiscSize
- Height = 225
- Left = 90
- Top = 300
- Width = 8595
- End
- Begin VB.Label Label2
- Height = 375
- Left = 30
- MousePointer = 2 'Cross
- TabIndex = 19
- ToolTipText = "Estimated Write Size On 650Mb or 700m disc"
- Top = 210
- Width = 8685
- End
- End
- Begin VB.Frame frmFileView
- Caption = "File View"
- Height = 2355
- Left = 30
- TabIndex = 2
- Top = 60
- Width = 8775
- Begin VB.CommandButton AddBtn
- Caption = "Add"
- Height = 315
- Left = 7800
- TabIndex = 12
- Top = 1950
- Width = 855
- End
- Begin VB.CheckBox chkWAV
- Caption = "WAV"
- Height = 225
- Left = 7800
- TabIndex = 11
- Top = 966
- Value = 1 'Checked
- Width = 825
- End
- Begin VB.CheckBox chkAll
- Caption = "All"
- Height = 225
- Left = 7800
- TabIndex = 10
- Top = 1200
- Width = 705
- End
- Begin VB.CheckBox chkMP3
- Caption = "MP3"
- Height = 225
- Left = 7800
- TabIndex = 9
- Top = 270
- Value = 1 'Checked
- Width = 735
- End
- Begin VB.CheckBox chkOGG
- Caption = "OGG"
- Height = 225
- Left = 7800
- TabIndex = 8
- Top = 502
- Value = 1 'Checked
- Width = 705
- End
- Begin VB.CheckBox chkWMA
- Caption = "WMA"
- Height = 225
- Left = 7800
- TabIndex = 7
- Top = 734
- Value = 1 'Checked
- Width = 765
- End
- Begin VB.FileListBox fileSelect
- Height = 2040
- Left = 4140
- MultiSelect = 2 'Extended
- Pattern = "*.WMA;*.OGG;*.MP3;*.WAV"
- ReadOnly = 0 'False
- TabIndex = 5
- Top = 240
- Width = 3525
- End
- Begin VB.DirListBox dirSelect
- Height = 1665
- Left = 120
- TabIndex = 4
- Top = 600
- Width = 4005
- End
- Begin VB.DriveListBox drvSelect
- Height = 315
- Left = 120
- TabIndex = 3
- Top = 240
- Width = 4005
- End
- End
- Begin VB.Menu mnuFile
- Caption = "&File"
- Begin VB.Menu mnuFileAdd
- Caption = "Add"
- Shortcut = ^{INSERT}
- End
- Begin VB.Menu mnuFileSeparator
- Caption = "-"
- End
- Begin VB.Menu mnuFileExit
- Caption = "Exit"
- Shortcut = ^X
- End
- End
- Begin VB.Menu mnuCDRecorder
- Caption = "&Recorder"
- Begin VB.Menu mnuCDRecorderChooseRecorder
- Caption = "Choose Recorder"
- End
- Begin VB.Menu mnuCDRecorderSetBurnMethod
- Caption = "Set Burn Method"
- Enabled = 0 'False
- End
- End
- Begin VB.Menu mnuCD
- Caption = "&CD"
- Begin VB.Menu mnuCDDiscInfo
- Caption = "Disc Info"
- End
- Begin VB.Menu mnuCDRefresh
- Caption = "Refresh"
- End
- Begin VB.Menu mnuCDErase
- Caption = "Erase CD-RW"
- End
- Begin VB.Menu mnuCDEject
- Caption = "Eject"
- End
- End
- Begin VB.Menu mnuWrite
- Caption = "&Write"
- Begin VB.Menu mnuWriteStartWrite
- Caption = "Start Write"
- End
- End
- Attribute VB_Name = "frmTestVBAudioCDWriter"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Public driveNum As Integer
- Public error As Boolean
- Public OperationProgress As Boolean
- Public eraseProgress As Integer
- Public writeProgress As Integer
- Public WithEvents AudioCDWriter1 As NCTDISCWRITERLib.AudioCDWriter
- Attribute AudioCDWriter1.VB_VarHelpID = -1
- Dim fName As String
- Dim fNumber As Integer
- Dim itmX As ListItem
- Dim pattern As String
- Dim FileAsTrack(99) As String
- Dim FilePath(99) As String
- Private Sub WriteNowBtn_Click()
- WriteDisc
- End Sub
- Private Sub chkAll_Click()
- If chkAll.Value = 1 Then
- chkWMA.Value = 1
- chkWMA.Enabled = False
- chkOGG.Value = 1
- chkOGG.Enabled = False
- chkMP3.Value = 1
- chkMP3.Enabled = False
- chkWAV.Value = 1
- chkWAV.Enabled = False
- Else
- chkWMA.Enabled = True
- chkOGG.Enabled = True
- chkMP3.Enabled = True
- chkWAV.Enabled = True
- End If
- SetNewPattern
- End Sub
- Private Sub chkMP3_Click()
- SetNewPattern
- End Sub
- Private Sub chkWAV_Click()
- SetNewPattern
- End Sub
- Private Sub chkOGG_Click()
- SetNewPattern
- End Sub
- Private Sub chkWMA_Click()
- SetNewPattern
- End Sub
- Private Sub dirSelect_Change()
- fileSelect.Path = dirSelect.Path
- fileSelect.Refresh
- Me.Refresh
- End Sub
- Private Sub drvSelect_Change()
- If drvSelect.Drive <> "a:" And drvSelect.Drive <> "b:" Then
- dirSelect.Path = drvSelect.Drive
- fileSelect.Path = dirSelect.Path
- End If
- End Sub
- Private Sub Form_Load()
- frmScan.Show 0, Me
- frmScan.Label1.Refresh
- Set AudioCDWriter1 = New NCTDISCWRITERLib.AudioCDWriter
- AudioCDWriter1.DriverOpen
- frmScan.Hide
- If Dir(Left(GetWinDir, 2) & GetUserHomePath & "\My Documents\My Music", vbDirectory) <> "" Then
- drvSelect.Drive = Left(GetWinDir, 2)
- dirSelect.Path = Left(GetWinDir, 2) & GetUserHomePath & "\My Documents\My Music"
- fileSelect.Path = dirSelect.Path
- Else
- dirSelect.Path = drvSelect.Drive
- End If
- fileSelect.Path = dirSelect.Path
- AudioCDWriter1.driveNum = 1
- Dim MaxSpeed As Integer
- error = False
- RefreshDiskInfo
- If error = True Then
- MsgBox "No CD/DVD readers or recorders found", vbOKOnly, "Scanning IDE/SCSI buses error"
- End If
- error = False
- fNumber = 0
- error = False
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- AudioCDWriter1.DriverClose
- Set AudioCDWriter1 = Nothing
- End Sub
- Private Sub AddFile()
- Dim fileSelNum As Integer
-
- If fNumber > 98 Then
- Exit Sub
- End If
-
- fileSelNum = 0
- Do While fileSelNum < fileSelect.ListCount
- If fileSelect.Selected(fileSelNum) = True Then
- fName = fileSelect.List(fileSelNum)
- FileAsTrack(fNumber) = fName
- FilePath(fNumber) = fileSelect.Path & "\" & fName
- fNumber = fNumber + 1
- End If
- fileSelNum = fileSelNum + 1
- If fNumber > 98 Then
- MsgBox "CDDA Disc Limited with 99 Tracks!"
- Exit Do
- End If
- Loop
-
- LoadTracks
- End Sub
- Private Sub DnBtn_Click()
- Dim i As Integer
- Dim Str As String
- Dim ind As Integer
- ind = ListView1.SelectedItem.Index
- i = ind
- If i = fNumber Then
- Exit Sub
- End If
- i = i - 1
- Str = FileAsTrack(i + 1)
- FileAsTrack(i + 1) = FileAsTrack(i)
- FileAsTrack(i) = Str
- Str = FilePath(i + 1)
- FilePath(i + 1) = FilePath(i)
- FilePath(i) = Str
- ListView1.ListItems.Clear
- i = 0
- Do While i < fNumber
- Set itmX = ListView1.ListItems.Add()
- itmX.Text = i + 1
- itmX.SubItems(1) = FileAsTrack(i)
- i = i + 1
- Loop
- Set itmX = ListView1.ListItems.Item(ind + 1)
- itmX.Selected = True
- End Sub
- Private Sub mnuWriteStartWrite_Click()
- WriteDisc
- End Sub
- Private Sub mnuCDErase_Click()
- EraseDisc
- End Sub
- Private Sub mnuFileExit_Click()
- Unload Me
- End Sub
- Private Sub mnuFileAdd_Click()
- AddFile
- End Sub
- Private Sub AddBtn_Click()
- AddFile
- End Sub
- Private Sub UpBtn_Click()
- Dim i As Integer
- Dim Str As String
- Dim ind As Integer
- ind = ListView1.SelectedItem.Index
- i = ind
- If i = 1 Then
- Exit Sub
- End If
- i = i - 1
- Str = FileAsTrack(i - 1)
- FileAsTrack(i - 1) = FileAsTrack(i)
- FileAsTrack(i) = Str
- Str = FilePath(i - 1)
- FilePath(i - 1) = FilePath(i)
- FilePath(i) = Str
- ListView1.ListItems.Clear
- i = 0
- Do While i < fNumber
- Set itmX = ListView1.ListItems.Add()
- itmX.Text = i + 1
- itmX.SubItems(1) = FileAsTrack(i)
- i = i + 1
- Loop
- Set itmX = ListView1.ListItems.Item(ind - 1)
- itmX.Selected = True
- End Sub
- Private Sub DeleteBtn_Click()
- Dim i As Integer
- If ListView1.ListItems.Count <= 0 Then
- Exit Sub
- End If
-
- i = ListView1.SelectedItem.Index
- Do While i < fNumber
- If i <> 0 Then
- FileAsTrack(i - 1) = FileAsTrack(i)
- FilePath(i - 1) = FilePath(i)
- End If
- i = i + 1
- Loop
- fNumber = fNumber - 1
- LoadTracks
- shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
- If shpEstWriteSize.Width > shpDiscSize.Width Then
- shpEstWriteSize.Width = shpDiscSize.Width
- End If
- stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
- End Sub
- Private Sub DeleteAllBtn_Click()
- ListView1.ListItems.Clear
- AudioCDWriter1.AudioDeleteAllItems
- fNumber = 0
- shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
- If shpEstWriteSize.Width > shpDiscSize.Width Then
- shpEstWriteSize.Width = shpDiscSize.Width
- End If
- stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
- End Sub
- Private Sub LoadTracks()
- Dim i As Integer
- ListView1.ListItems.Clear
- AudioCDWriter1.AudioDeleteAllItems
- i = 0
- Do While i < fNumber
- Set itmX = ListView1.ListItems.Add()
- itmX.Text = i + 1
- itmX.SubItems(1) = FileAsTrack(i)
- AudioCDWriter1.AudioAddItem FilePath(i)
- i = i + 1
- Loop
- shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
- If shpEstWriteSize.Width > shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left) Then
- shpEstWriteSize.Width = shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left)
- End If
- If shpEstWriteSize.Width > shpDiscSize.Width Then
- shpEstWriteSize.Width = shpDiscSize.Width
- End If
-
- Me.Refresh
- stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
- End Sub
- Public Sub RefreshDiskInfo()
- AudioCDWriter1.Refresh
- stBarAudioWriter.Panels(3).Text = Format((AudioCDWriter1.cdUsedSpace / 1024) / 1024, "#0.000") & " MB"
- stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
-
- Select Case AudioCDWriter1.cdType
- Case WRITEONCE:
- stBarAudioWriter.Panels(1).Text = "CD-R, CD-ROM"
- Case ERASABLE:
- stBarAudioWriter.Panels(1).Text = "CD-RW"
- Case RANDOMACCESS
- stBarAudioWriter.Panels(1).Text = "DVD-RAM"
- Case NODISC:
- stBarAudioWriter.Panels(1).Text = "No Disc"
- stBarAudioWriter.Panels(3).Text = "0"
- stBarAudioWriter.Panels(4).Text = "0"
- End Select
- Select Case AudioCDWriter1.cdStatus
- Case BLANK:
- stBarAudioWriter.Panels(2).Text = "Blank"
- Case WRITEBLE:
- stBarAudioWriter.Panels(2).Text = "Open"
- Case NOTWRITEBLE:
- stBarAudioWriter.Panels(2).Text = "Closed"
- Case UNRECOGNIZED:
- stBarAudioWriter.Panels(2).Text = "Unknown"
- stBarAudioWriter.Panels(3).Text = "0"
- stBarAudioWriter.Panels(4).Text = "0"
- End Select
- shpUsedSize.Width = shpDiscSize.Width * ((AudioCDWriter1.cdUsedSpace / 1024) / 1024 / 702)
- If shpUsedSize.Width > shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left) Then
- shpUsedSize.Width = shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left)
- End If
- shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
- If shpEstWriteSize.Width > shpDiscSize.Width Then
- shpEstWriteSize.Width = shpDiscSize.Width
- End If
- Me.Refresh
- End Sub
- Private Sub AudioCDWriter1_ErrorEx(ByVal errCode As errCode, ByVal errDescr As String)
- If errCode <> DRIVENOTSUPPORTED And errCode <> INITFAILED Then
- MsgBox "Error: " & errCode & ". " & errDescr
- End If
- error = True
- End Sub
- Private Sub AudioCDWriter1_OperationProgress(ByVal Percent As Integer)
- OperationProgress = True
- If frmTestVBAudioCDWriter.AudioCDWriter1.driveOperation = ERASE_DISC Then
- eraseProgress = Percent
- Else
- frmWrite.OperationProgress (Percent)
- End If
- End Sub
- Private Sub AudioCDWriter1_MediaChange()
- RefreshDiskInfo
- End Sub
- 'Private Sub SetDriveWriteMethod()
- ' ListView1.ListItems.Clear
- ' AudioCDWriter1.DeleteAllFiles
- ' fNumber = 0
- ' frmWriteMethod.Show 1, Me
- ' RefreshDiskInfo
- 'End Sub
- Private Sub SetNewPattern()
- pattern = ""
- If chkAll.Value = 1 Then
- pattern = "*.*"
- Else
- If chkWMA.Value = 1 Then
- If pattern <> "" Then pattern = pattern & ";"
- pattern = pattern & "*.WMA"
- End If
- If chkOGG.Value = 1 Then
- If pattern <> "" Then pattern = pattern & ";"
- pattern = pattern & "*.OGG"
- End If
- If chkMP3.Value = 1 Then
- If pattern <> "" Then pattern = pattern & ";"
- pattern = pattern & "*.MP3"
- End If
- If chkWAV.Value = 1 Then
- If pattern <> "" Then pattern = pattern & ";"
- pattern = pattern & "*.WAV"
- End If
- End If
- fileSelect.pattern = pattern
- End Sub
- Private Sub mnuCDDiscInfo_Click()
- frmDiscInfo.Show 1
- End Sub
- Private Sub mnuCDEject_Click()
- AudioCDWriter1.Eject
- RefreshDiskInfo
- End Sub
- Private Sub mnuCDRecorderChooseRecorder_Click()
- frmChooseRec.Show 1
- End Sub
- 'Private Sub mnuCDRecorderSetWriteMethod_Click()
- ' frmWriteMethod.Show 1
- 'End Sub
- Private Sub mnuCDRefresh_Click()
- RefreshDiskInfo
- End Sub
- Public Sub EraseDisc()
- frmErase.Show 1, Me
- End Sub
- Public Sub WriteDisc()
- LoadTracks
- frmWrite.LoadSpeedCombo1
- frmWrite.Show 1, Me
- End Sub
-